Updater Prob

[Neuni]

SO:

Code:

procedure TForm1.XiButton1Click(Sender: TObject);
var Datei, Ziel:PChar;
begin
  Memo1.lines.Add ('Update.. bitte einen moment warten...') ;
  Memo2.Lines.LoadFromFile('C:\Updater\File1.txt');
  Memo3.Lines.LoadFromFile('C:\Updater\File1Ziel.txt');
  Datei := memo2.text;                              // Hier stimmt was 
  Ziel := memo3.text;                               // Hier stimmt was 
  UrlDownloadToFile(nil, Datei, Ziel, 0, nil);
      // --------------------------------------------------

      ProgressBar1.Position:=ProgressBar1.Position+100;
      memo1.lines.Add ('==================================');
      memo1.lines.Add ('Download beendet!');
      memo1.lines.Add ('Vielen dank für die benutzung des Updaters!');
      memo1.lines.Add ('Update Komplett!');
end;

Oder enfach die '' weglassen, weil sonst schreibt er memo1.lines in das memo