Fórum Executar aplicativo em um StringGrid? #426253

procedure TForm1.FormCreate(Sender: TObject);
begin
  with StringGrid1 do begin
          ColWidths[0]:= 25;
          ColWidths[1]:= 280;

          Cells[1, 0]:= 'Aplicativo';

end;
 end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
     StringGrid1.Cells[1, 1]:= OpenDialog1.FileName;
     begin
     WinExec(StringGrid1.Rows[1] ,SW_SHOWNORMAL)
end;
end;