[Norw]

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
winexec ('d:\1\sviaz1.exe');
end;