Ребят, экзамен завтра

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function MaxLength(St: TStrings): String;
var i: Integer;
    MaxLen: Integer;
    Index: Integer;
begin
  Index := 0;
  MaxLen := Length(St.Strings[0]);
  for i := 0 to St.Count - 1 do
    if MaxLen < Length(St.Strings[i]) then
      Index := i;
 
  Result := St.Strings[Index];
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Самое длинное слово ' + MaxLength(Memo1.Lines));
end;
 
end.