Wie Kopiert man Dateien in den Projekt Ordner?

[Fussel9]

Ok wenn bei der MainForm ein Button mit der aufschrift Schließen geklickt wird passiert folgendes:

ein fenster öffnet sich das eine grafik zeigt ein Timer ist in dieser form sein delay ist 3000-->

Delphi-Quellcode:

procedure TFLemon.TLemonTimer(Sender: TObject);
var Editor: TEditor;
begin
if a <> 1 then
  begin
    LLizenz.Visible:=True;
    a:=1;
  end
else
  begin
    if MessageDlg('Willst du selbst eine Grußkarte erstellen?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
    begin
      Close;
      Editor:=TEditor.create(self);
      Editor.Show;
    end;
  end;
end;