[[ElKurgan]]

Por ejemplo:

Código Delphi [-]
uses sysutils;
.....
procedure TForm1.Create(Sender: TObject);
var
  Carpeta: string;
begin
  Carpeta := 
    IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
  Animate1.FileName := Carpeta  + 'Fichero.Avi';
end;

Un saludo