Fehler beim Speichern

[SaFu]

Hallo zusammen

Habe folgenden fehler beim Speichern des inhaltes meiner Combobox

Zitat:

Fehler] Unit7.pas(105): Inkompatible Typen: 'String' und 'procedure, untyped pointer or untyped parameter'

An Folgender Stelle was habe ich Falsch gemacht

Delphi-Quellcode:

procedure TForm7.FormCreate(Sender: TObject); // Zellenbeschriftung

var i: integer;
    f: TextFile;
    s: String;
begin
  begin
AssignFile(f, ExtractFilePath(ParamStr(0)) +'C:\Datei\Lehrereinträge.txt');

Reset(f);

while EOF(f) = false do
  begin
   s:= Readln(f,s);    // Hier ist der FEHLER
   Combobox3.Items.Add(s);
  end;

CLosefile(f);
end;


  for i:=0 to ComponentCount-1 do // XP Anzeige
  if Components[i] is TPanel then (Components[i] as TPanel).ParentBackground:=false;
  Label1.Caption := 'An Koll. ';
  Label2.Caption:= DateToStr(Date);
  Label3.Caption := 'VERTRETUNGSPLAN für Koll. ';
  Label8.Caption:= 'Kalenderwoche: ';
  Label14.Caption:= 'Woche ';
  Stringgrid1.Visible:= True;
  StringGrid1.Cells[0,0]:= 'Wochentag';
  StringGrid1.Cells[0,1]:= 'Montag';
  StringGrid1.Cells[0,5]:= 'Dienstag';
  StringGrid1.Cells[0,9]:= 'Mittwoch';
  StringGrid1.Cells[0,13]:= 'Donnerstag';
  StringGrid1.Cells[0,17]:= 'Freitag';
  StringGrid1.Cells[0,21]:= 'Samstag';
  StringGrid1.Cells[1,0]:= 'Klasse';
  StringGrid1.Cells[2,0]:= '1';
  StringGrid1.Cells[3,0]:= '2';
  StringGrid1.Cells[4,0]:= '3';
  StringGrid1.Cells[5,0]:= '4';
  StringGrid1.Cells[6,0]:= '5';
  StringGrid1.Cells[7,0]:= '6';
  StringGrid1.Cells[8,0]:= ' ';
  StringGrid1.Cells[9,0]:= '7';
  StringGrid1.Cells[10,0]:= '8';
end;

Danke schon mal