Hola
Perdona la variable tiene que ser Pchar, asi:
Código Delphi
[-]
var
Form1: TForm1;
dato: PChar;
implementation
Y usarlo asi:
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShellExecute (Handle, 'open', PChar(dato+'prueba1.txt'), ' ', ' ', SW_SHOWNORMAL);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ShellExecute (Handle, 'open', PChar(dato+'prueba2.txt'), ' ', ' ', SW_SHOWNORMAL);
end;
Saludos