Bildschirm unter einem gewünschten Namen kopieren

[taktaky]

Hallo,

mit dem Code kann man den Bildschirm kopieren
ich möchte aber den namen vom Bild jedes mal bestimmen statt ein konstanter Name

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
const
  FileName = '.\test.jpg';
//ich möchte aber so : FileName = Edit1.text; 
// es wird leider nicht akzeptiert !!!
  JpgQuality = 98; // 1..100
var
  DeskHdC : Longint;
  JpgImg: TJPEGImage;
  BmpImg: TBitmap;
begin
  JpgImg := TJPEGImage.Create;
  BmpImg := TBitmap.Create;
  try
    DeskHdc := GetDC(GetDesktopWindow);
    BmpImg.Height := Screen.Height;
    BmpImg.Width := Screen.Width;

    BitBlt(BmpImg.Canvas.Handle,
           0,
           0,
           Screen.Width,
           Screen.Height,
           DeskHdc,
           0,
           0,
           SRCCOPY);

    JpgImg.Assign(BmpImg);

    if FileExists(FileName) then DeleteFile(FileName);

    JpgImg.CompressionQuality := JpgQuality;
    JpgImg.SaveToFile(FileName);

    //Previewimage
    Image1.Picture.Assign(BmpImg);
  finally
    JpgImg.Free;
    BmpImg.Free;
  end;
end;

Ich möchte also den Namen Bild-namen in Edit1.Text eingeben
warum geht es nicht ?!
Statt FileName = '.\test.jpg';
soll so : FileName = Edit1.text;