После запуска программы отображаются: две строки для ввода текущих курсов для евро и доллара;

[5568]

Создать программу, выполняющую следующие действия:1. После запуска программы отображаются: две строки для ввода текущих курсов для евро и доллара;
строка для ввода денежной суммы в рублях; две строки для вывода эквивалента в евро, долларах.
2. Ввести текущий курс для евро и доллара.3. Ввести денежную сумму в рублях.4. По щелчку мышью на кнопке "Подсчитать эквивалент" выводится денежная сумма в евро и долларах.5. Ввести новый текущий курс для евро и доллара.6. Ввести новую денежную сумму в рублях.7. По щелчку мышью на кнопке "Подсчитать эквивалент" выводится новая денежная сумма в евро и долларах.8. Для выхода из программы необходимо щелкнуть мышью на закрывающей кнопке в строке заголовка.

[Stilet]

Полагаю как-то так?:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses      contnrs,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    LabeledEdit1: TLabeledEdit;
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure LabeledEdit1Change(Sender: TObject);
  private
    { private declarations }
    lts:TObjectList;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
const
  caps:array[1..5] of string=('По чем бакс?','По чем евряка?','Есть рубли?'
                             ,'А если баксы найду?','А если в еврях найду?');
var lt:TLabeledEdit;h,i:integer;
begin
 lts:=TObjectList.create(true);
 h:=50;
 for i:=Low(caps) to High(caps) do begin
   lt:=TLabeledEdit.Create(self); lts.Add(lt);
   with lt do begin    EditLabel.Caption:=caps[i];   Parent:=self; show;
     Top:=h; Left:=0; tag:=i; Width:=self.Width;   OnChange:=@LabeledEdit1Change;
     inc(h,Height+EditLabel.Height); end;
 end;
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  lts.Destroy;
end;

procedure TForm1.LabeledEdit1Change(Sender: TObject);
begin
 TLabeledEdit(lts[3]).Text:=format('%10.2f',[
    StrToFloatDef(TLabeledEdit(lts[0]).Text,0)
   *StrToFloatDef(TLabeledEdit(lts[2]).Text,0)
 ]);
 TLabeledEdit(lts[4]).Text:=format('%10.2f',[
    StrToFloatDef(TLabeledEdit(lts[1]).Text,0)
   *StrToFloatDef(TLabeledEdit(lts[2]).Text,0)
 ]);
end;

end.