Warnhinweis??

[xilos]

hallo ich soll von der schule aus einen kalorienrechner programmieren und habe den auch so gut wie fertig ^^(im anhang zum anguggen )
ähmm...wenn man in das obere feld nichts eingibt und/oder keinen radiobutton auswählt soll ein warnhinweis erscheinen!!
(in einem neuen fenster) wie bekomm ich das hin??
hier mein code den ich bis jetzt habe ^^

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1 : integer;
var bonus: integer;
begin
edit2.text    := '0' ;

edit3.Text    := '0'  ;

zahl1         := StrToint (edit1.text);

edit2.text    := intToStr (zahl1*24);


  if RadioGroup1.ItemIndex = 0 then
    bonus := StrToInt(Edit2.Text)  div 3;

  if RadioGroup1.ItemIndex = 1 then
    bonus := StrToInt(Edit2.Text)  * 2 div 3;

  if RadioGroup1.ItemIndex = 2 then
    bonus := StrToInt(Edit2.Text) ;

edit3.text := inttostr((strtoint(Edit3.text)*24)+ bonus);



Label4.Caption := Format('Sie benütigen am Tag %s Kilokalorien', [ergebnis]);
end;

end.

denkeschön jetzt schon mal