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

function THauptForm.eingabewert: string; 
begin
  if (cbWerte.text <> '') or (editaname.Text <> '') then
   begin
    result := cbWerte.text or result := editname.Text;
    end
    else
    showmessage("nichts eingegeben');
    halt;
   end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function THauptForm.eingabewert: string; 
begin
  if cbWerte.text <> '' then
    result := cbWerte.text
  else if editaname.Text <> '' then
    result := editname.Text
  else
    begin 
      showmessage ("nichts eingegeben');
      result := '';
    end;
end;					

1:
2:

  result := editname.Text;
else