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

 var Name,Beschwerde,Datum,Katerogi,text:String;   
begin   
  text:=edit3.Text+' -- '+edit1.text+' -- '+edit2.text;   
  case combobox1.ItemIndex of  
  0:  memo2.Lines.add(text); //'Server'  sei der 1. Eintrag der Combobox  
  1:  memo1.Lines.add(text); //'Back Up' sei der 2. Eintrag der Combobox  
  2:  memo3.Lines.add(text); //'Drucker' sei der 3. Eintrag der Combobox  
  end;  
end;