Bom Dia Jhonas
Brigadão meu amigo ...
mais queimando minha mufa consegui....eu acho que estava com preguiça de pensar..rsrs
procedure TFrmImpLau.BitBtn1Click(Sender: TObject);
var
msword: variant;
begin
msword:= CreateOleObject ('Word.Basic');
msword.appshow;
msword.fileopen('C:\hnsg\laudos\' + edit1.text+'.doc',0);
self.Close;
FrmPrincipal.WindowState := wsMinimized;
end;
Brigadão