программу, которая вычисляет произведение двух заданных пользователем чисел

[smile)]

здравствуйте) не могли бы вы мне помочь...?

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls, Buttons;
type
TfmMult = class(TForm)
btFirst: TBitBtn;
btSecond: TBitBtn;
edInput: TEdit;
mmOutput: TMemo;
btClose: TButton;
lbMessage: TLabel;
procedure btCloseClick(Sender: TObject);
procedure btFirstClick(Sender: TObject);
procedure btSecondClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
X,Y:integer;
public
{ Public declarations }
end;

var
fmMult: TfmMult;
implementation
{$R *.DFM}

procedure TfmMult.btCloseClick(Sender: TObject);
begin
Close;
end;

procedure TfmMult.btFirstClick(Sender: TObject);
begin
//Преобразуем текст из edInput в целое число:
X:=StrToInt(Trim(edInput.Text));

//Сообщаем в мемо-поле о вводе первого числа:
mmOutput.Lines.Add('Первое число - '+edInput.Text);

//Очищаем поле ввода:
edInput.Text:='';

//Возвращаем фокус полю ввода:
edInput.SetFocus;

//Выводим подсказку в поле метки:
lbMessage.Caption:='Введите второе число:';

//Делаем первую кнопку недоступной, а вторую доступной:
btFirst.Enabled:=False;
btSecond.Enabled:=True;
end;

procedure TfmMult.btSecondClick(Sender: TObject);
begin
//Преобразуем текст из edInput в целое число:
Y:=StrToInt(Trim(edInput.Text));

//Сообщаем в мемо-поле о вводе второго числа:
mmOutput.Lines.Add('Второе число - '+edInput.Text);

//Вычисляем и показываем результат:
mmOutput.Lines.Add('Результат: '+IntToStr(X)+'*'+
IntToStr(Y)+'='+IntToStr(X*Y));

//Очищаем поле ввода:
edInput.Text:='';

//Возвращаем фокус полю ввода:
edInput.SetFocus;

//Выводим подсказку в поле метки:
lbMessage.Caption:='Введите первое число:';

//Делаем первую кнопку доступной, а вторую недоступной:
btFirst.Enabled:=True;
btSecond.Enabled:=False;
end;

procedure TfmMult.FormActivate(Sender: TObject);
begin
//Передаем фокус полю ввода edInput:
edInput.SetFocus;
end;

end.

Задание 1.
Измените программу так, чтобы при вводе первого числа была бы видна только кнопка btFirst, а кнопка btSecond была бы невидимой (а не недоступной), а при вводе второго числа, наоборот, кнопка btSecond стала бы видимой, а кнопка btFirst - невидимой.

[artemavd]

Как пример:

//Edit1 - первое число
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 Form1.btSecond.Enable:=False;
 Form1.btFirst.Enable:=True;
end;

//Edit2 - второе число
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 Form1.btFirst.Enable:=False;
 Form1.btSecond.Enable:=True;
end;