Syntax error: oczekiwano średnika

Lazarus znów pokazuje błędy...
Mogłby mi ktoś Pokazać, jak to poprawnie wykonać?

Błąd składni: oczekiwano średnika - jak myślisz, czego zatem brakuje po end w czterdziestej drugiej linijce?

efekt wstawienia średnika po end w 42 linijce...

@NoChybaNieBardzo: 1. W linii 44 brakuje Ci (. 2. Czy jest taka metoda w interfejsie jak w linii 39? Wygląda, że nie.

Poza tym nadal nie ma średników na końcach linii 46 oraz 50-tej.

@NoChybaNieBardzo: tak ma wyglądać zdarzenie kliknięcia w przycisk:

procedure TForm1.Button1Click(Sender: TObject);
var
  a, h, P: Single;
begin
  a := StrToFloat(Edit1.Text);
  h := StrToFloat(Edit2.Text);
  P := a * h / 2;
  
  Label6.Caption := FloatToStr(P);
end;

I nie wstawiaj do postów zrzutów ekranu z kodem – wstawiaj skopiowany kod z edytora, w odpowiednie znaczniki. A jak koniecznie potrzebujesz zrobić zrzut ekranu to obrazek dodawaj do załączników postów, a nie na jakieś hostingi.