use ShellAPI;    procedure TForm1.Button1Click(Sender: TObject);
Var
 Filename:String;
begin
 Filename:='C:\test.gif';
 ShellExecute(handle, 'open', pchar(FileName),Nil, Nil, SW_SHOWNORMAL);
end;