[Delphi] Zapisanie obrazka i zpisanie ściezki

mam problem z procedurką zapisujaca plik do katalogu programu i zapisaniem sciezki

public
procedure zapisz;
end;

var
Add: TAdd;
Sciezka: String;
implementation

{$R *.DFM}

procedure TAdd.CloseClick(Sender: TObject);
begin
Close;
end;

procedure TAdd.DodajClick(Sender: TObject);
var
INI : TINIFile;
Ksywa : string;
Sciezka: string;
begin
Sciezka := ExtractFileDir(Paramstr(0)) + 'GCDane.ini';
INI := TINIFile.Create(Sciezka);
Ksywa := Ksywka.Text;
try
INI.WriteString(Ksywa, 'Imie' ,Imie.Text);
INI.WriteString(Ksywa, 'Nazwisko' ,Nazwisko.Text);
INI.WriteString(Ksywa, 'Miejscowosc' ,Miejscowosc.Text);
INI.WriteString(Ksywa, 'Adres' ,Adres.Text);
INI.WriteString(Ksywa, 'TelDom' ,TelDom.Text);
INI.WriteString(Ksywa, 'TelCom' ,TelCom.Text);
INI.WriteString(Ksywa, 'Wiek' ,Wiek.Text);
INI.WriteString(Ksywa, 'Email' ,Email.Text);
INI.WriteString(Ksywa, 'NickMirc' ,NickMirc.Text);
INI.WriteString(Ksywa, 'NickTlen' ,NickTlen.Text);
INI.WriteString(Ksywa, 'NickGG' ,NickGG.Text);
INI.WriteString(Ksywa, 'NrGG' ,NrGG.Text);
INI.WriteString(Ksywa, 'Ksywka' ,Ksywka.Text);
INI.WriteString(Ksywa, 'image', ); //a tu chce by mi zapisał sciezkę czyli nazwę i sciezkę chyba ze mozna to jakoś uprościć

finally
INI.Free;
end;

end;

procedure TAdd.FormCreate(Sender: TObject);
begin
Sciezka := ExtractFileDir(Paramstr(0)) + 'Dane.ini';
{
ustala sciezke o pliku ini (plik ten znajuje sie w tym
samym folderze co program)
}
end;

procedure TAdd.ClearClick(Sender: TObject);
var
j : Integer;
begin
for j := 0 to ComponentCount -1 do
if Components[j] is TEdit then
TEdit(Components[j]).Clear;
end;

procedure TAdd.ImageClick(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
end;

procedure zapisz; // i tu chce zapisać otwarty obrazek do katalogu image gdzie lezy program pod nazwą która jest podana w Ksywka
begin
if SavePictureDialog1.Execute then
begin
Image1.Picture.SaveFormFile(SavePictureDialog1.FileName + Ksywka.text, DeflautExt 'Sciezka');
end;
end;

postanowiłem cały kod wkleić byście mieli komletny wgląd co chcę uzyskać.

pomózcie

dla mnie za duzo sciezka := bys dal to na ftp. i bysmty zobaczyli a ja tak nic nie pomoge

spróbuj extractfilepath(filename:string):string

np jak masz plik c:\rysunki\bitmapy\słonko.bmp to zwraca ci c:\rysunki\bitmapy\ myśle że ci sie to przyda:P