OpenDialog sciezka...

Syuacja wygląda tak:

Mam plik C:\Delphi\Obrazek\plik.txt

Otwieram plik porzez Open Dialog , a sciezke dostepu wstawiam do label. I tu zaczyna sie mój problem sciezka wyglada tak
C:\Delphi\Obrazek\plik.txt a ma wyglądać tak:
Delphi\Obrazek\plik.txt
Prosze o pomoc! [wstyd]

var
Sciezka: String;
begin
Sciezka:=OpenDialog1.FileName;
Delete(Sciezka,1,3);
Label1.Caption:=Sciezka;
end;

uses
FileCtrl;

var
Calasciezka, Dysk, Sciezka, Nazwa : string;

begin

Calasciezka:=OpenDialog.Filename;
ProcessPath(CalaSciezka, Dysk, Sciezka, Nazwa);
ToCoSzukasz:=Sciezka+Nazwa;