1:

MessageBox(0, 'Deine Eingabe war: ' + PChar(IntToStr(Eing)) + #10#13 'Es sind aber nur Zahlen von x-y erlaubt', 'Fehler', MB_OK xor MB_ICONERROR);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.ShowMessage(txt, Caption: string; thehandle: HWND);
begin
  Windows.MessageBox(thehandle,PChar(txt),PChar(Caption),MB_OK+MB_ICONerror)
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
    ShowMessage('Dein Text','Fehler', Handle);
end;					

1:
2:

  Application.MessageBox(PChar('Deine Eingabe war: ' + IntToStr(Eing) + #10#13
    + 'Es sind aber nur Zahlen von x-y erlaubt'), 'Fehler' , MB_OK or MB_ICONERROR);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm2.Button1Click(Sender: TObject); //hier wird meine Berechnung durchgeführt

  function umwandeln(var zahl1, zahl2: Real): Boolean; // unter diesen Bedingungen werden meine Fehlermeldungen ausgelöst
  var
    fcode: integer;
  begin
    Val(edit1.Text, zahl1, fcode);
    Result := fcode = 0;
    if fcode <> 0 then
      MessageBox(0,'Im ersten Eingabefeld steht keine Zahl Bitte Zahl Eingeben'
        +#10#13+'zB.:1,2,3','Fehler',(mb_ok+mb_iconerror));
    Val(edit2.Text,zahl2,fcode);
    Result := Result and (fcode = 0);
    if fcode <> 0 then
      MessageBox(0,'Im zweiten Eingabefeld steht keine Zahl Bitte Zahl Eingeben'
        +#10#13+'zB.:1,2,3','Fehler',(mb_ok+mb_iconerror));
  end;

var
  zahl1, zahl2, ergebnis: real;
  hilfstext: string;
begin
  if umwandeln(zahl1, zahl2) and (sender = Button1) then
  begin
    Ergebnis := ((Zahl2 / Zahl1)*3+0.3)*100;
    str(ergebnis:8:2, hilfstext);
    Edit3.Text := hilfstext;
  end;
end;