[Polus39]

Я не проверял, ро должно работать

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
 StrList: TStringList;
 TempStr: String;
  L,i: Integer;
begin
  StrList:= TStringList.Create;
  try
    StrList.LoadFromFile('2.txt');
    Label2.Caption  := inttostr(StrList.Count);
    for i := 0 to StrList.Count - 1 do begin
      TempStr :=  StrList.Strings[i];
      L := Length(TempStr);
      Label1.Caption  := inttostr(L);
    end;
  finally
    StrList.Free;
  end;
end;