stringGrid sonderfunktion

[datamuell]

ein Stringgrid hat zwei spalten. in der ersten sind Titel enthalten und festgelegt. in der zweiten Spalte ändern sich immer die Inahlte, die von einem Memo Zeilenweise ausgelesen und in die entsprechende Spalte eingelesen werden. Über ein Button wird die entsprechende datei eingelesen. da es sich hierbei um eine stets wiederkehrende routine handelt müßte diese doch kurz als function zu schreiben sein. aber wie?
statt

Delphi-Quellcode:

with StringGrid do
  begin
    if memo1.lines('hugo') do
      begin
       cells (1,0) := memo1.lines[1]
       cells (1,1) := memo1.lines[2]
     end;
    if memo1.lines('fritz') do
      begin
       cells (1,0) := memo1.lines[1]
       cells (1,1) := memo1.lines[2]
     end;
  end;

mgibt es eine function. Wer weiß wie so etwas geschrieben wird - delphi 4.0 und win98?
Danke für jede Idee

[edit=Sharky]Tags korrigiert. Mfg, Sharky[/edit]