Загрузка содержимого txt в ListView

[Rendll]

Парни помогите загрузить даные с txt файла в ListView. Допустим у меня есть 5 строк и 4 столбца с записями, мне надо их загрузить в ListView. Пробовал так:

//Процедура  записи  списка при нажатии кнопки sbSave
procedure TForm1.sbSaveClick(Sender: TObject);
 var num,i,j: integer;s:string;

begin
 for i:=0 to LvClas.Items.Count-1 do
 begin
  S:= LvClas.Items.Item[i].Caption ;
   for j:=0 to 3 do
    S:=S+'  '+LvClas.Items.Item[i].SubItems.Strings[j];
    Buf.Add(s) ;
 end;
    Buf.SaveToFile('tabl.txt');
end;

//Процедура  считования  списка при нажатии кнопки sbLoad
procedure TForm1.sbLoadClick(Sender: TObject);
var s,sc:string;
    i,p,j:integer;
begin
 Buf.Clear;
 LvClas.Clear;
 Buf.LoadFromFile('tabl.txt');
for i := 0 to Buf.Count-1 do

 begin
 S:=Buf.Strings[i];
  p:=pos(' ',s);
  if p>0 then
   begin
  Sc:=copy(s,1,p-1);
  LvClas.Items.Add.Caption :=sc;
  Delete(s,1,p);s:=Trim(s);
   end;
  for j:=0 to 3 do
  begin
  p:=pos(' ',s);
  if p>0 then
   begin
  Sc:=copy(s,1,p-1);
  LvClas.Items.Item[i].SubItems.Add(sc);
  Delete(s,1,p);s:=Trim(s);
  end;
  end;
 end;
end;

не работает ни запись не считования +(((

[Rendll]

задача упрщается, подсказали не хватает строчки: Buf:=TStringList.Create, тока куда её вставить??

[Пепел Феникса]

при условии что у тебя Buf внешняя переменная
то при создании формы
а при уничтожении формы помести тогда
Buf.Free;