Excel-Zeile auslesen / Datei-Pfad relativ !!!

[taktaky]

mit dem Code klann man den Inhalt einer Excel-Zeile auslesen. Aber was soll ich ändern,
damit den datei Pfad aus als relativ eintragen kann. In dem Code wird nur absolute Pfad akzeptiert !!!

Delphi-Quellcode:

uses ComObj,

procedure TForm1.Button1Click(Sender: TObject);
const
  xlCellTypeLastCell = $0000000B;
var
  XLApp, XLSheet: OLEVariant;
  LetzteSpalte, i: Integer;
  s: string;
begin
  // Excel starten
  try
    XLApp := CreateOleObject('Excel.Application');
  except
    ShowMessage('Fehler...');
    Exit;
  end;
  // Excel-Datei öffnen
  XLApp.Workbooks.Open('C:\test1.xls'); // pafd nur als absolut !!!!!!!!!!!!!!!!
  XLSheet := XLApp.Workbooks[1].WorkSheets[1];
  // Letzte Spalte ermitteln
  LetzteSpalte := XLSheet.Cells.SpecialCells(xlCellTypeLastCell, emptyParam).Column;
  s := '';
  // Zellen von Zeile 1 auslesen und in String s speichern
  for i := 1 to LetzteSpalte do
    s := s + XLSheet.Cells[1, i].Text;
  // String s anzeigen
  //ShowMessage(s);
  Edit1.Text:=s;
  // Excel beenden
  XLApp.Quit;
end;

Gruß