[mivaler]

procedure Tcarga.Button1Click(Sender: TObject);
var dbpath : String;
begin
dbpath := AppPath+'files';
open.InitialDir := dbpath;
if open.Execute then
begin
ti.DatabaseName := dbpath;
ti.TableName:=open.Filename;
ti.Open;
ti.Last;
end;
end;