Необходимо оформить код как функцию в Delphi

[Idris]

Добрый вечер! помогите мне пожалуйста оформить мой код как функцию.

procedure TForm1.ComboBox1Change(Sender: TObject);
  var SR: TSearchRec;
  Item: TListItem;
begin
  ListView1.Items.Clear;
  DriveName:=ComboBox1.Text;
  if FindFirst(DriveName+'*.*', 255, SR) = 0 then
  repeat
    Item:= ListView1.Items.Add;
    Item.Caption:= SysToUtf8(SR.Name);
    if SR.Attr AND 16 = 16
      then Item.SubItems.Add('<DIR>')
      else Item.SubItems.Add(IntToStr(SR.Size));
  until FindNext(SR) <> 0;
  Edit1.Text:=DriveName;
end;

[Diplomnik]

Мб так

Function TForm1.SetDriveName(DN:string):string;
  var SR: TSearchRec;
  Item: TListItem;
begin
  ListView1.Items.Clear;
  if FindFirst(DN+'*.*', 255, SR) = 0 then
  repeat
    Item:= ListView1.Items.Add;
    Item.Caption:= SysToUtf8(SR.Name);
    if SR.Attr AND 16 = 16
      then Item.SubItems.Add('<DIR>')
      else Item.SubItems.Add(IntToStr(SR.Size));
  until FindNext(SR) <> 0;
  SetDriveName:=DN;
end;

А вызываешь так:

DriveName:=ComboBox1.Text;
Edit1.Text:=SetDriveName(DriveName);

или так...

Edit1.Text:=SetDriveName(ComboBox1.Text);