[Ramundo]

Код:

unit Unit1; 

interface 

uses 
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
 Dialogs, StdCtrls, Mask, DBCtrls; 

type 
 TForm1 = class(TForm) 
 Editi: TEdit; 
 Edit2: TEdit; 
 Label1: TLabel; 
 Label2: TLabel; 
 Label3: TLabel; 
 Label4: TLabel; 
 Button1: TButton; 
 Button2: TButton; 
 procedure Button1Click(Sender: TObject); 
 procedure Button2Click(Sender: TObject); 
 private 
 { Private declarations } 
 public 
 { Public declarations } 
 end; 

var 
 Form1: TForm1; 

implementation 

{$R *.dfm}

procedure TForm1.ButtonlClick(Sender: TObject); 

var 

dist : integer; // дистанция, метров 

t: real; // время как дробное число 

min : integer; // время, минуты 

sek : integer; // время, секунды 

v: real; // скорость 

begin 

// получить исходные данные из полей ввода 

dist := StrToint(Edit1.Text); t := StrToFloat(Edit2.Text); 

// предварительные преобразования 

min := Trunc(t); // кол-во минут — это целая часть числа t 

sek := Trunc(t*100) mod 100; 

// кол-во секунд — это дробная часть 

// числа t 

// вычисление 

v := (dist/1000) / ((min*60 + sek)/3600); 

// вывод результата 

label4.Caption := 'Дистанция: '+ Edit1.Text 

+ ' м' + #13 + 'Время: ' + IntToStr(min) 

+ ' мин ' + IntToStr(sek) + ' сек ' + #13 + 

'Скорость: ' + FloatToStrF(v,ffFixed,4,2) + ' км/час'; 

end;

procedure TForm1.Button2Click(Sender: TObject); 

begin 

Form1.Close; // закрыть главное окно программы 

end;

lmikle: Пользуемся тегами!!!

Сделал все, как тут: http://udelphi7.gym5cheb.ru/p8aa1.html

Фишка в том, что форма как запустилась, так и закрылась. И никаких ошибок в коде не отражается.