necesito ayuda con el componente Tanimate

[ricmed7]

Hola a todos...muchos saludos.
necesito ayuda con el componente Tanimate lo que pasa es que en mi PC el programa que estoy haciendo corre muy bien pero cundo lo llevo a otra PC no quiere correr me sale erro hasta donde pude ver es por la direccion del archivo AVI.....¿la pregunta es como hago para que ese archivo AVI se autodireccione en su propiedad filename..?

[ElKurgan]

Por ejemplo:


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


Un saludo