опять я опять мемо

[nyasha2013]

хоть убейте, не могу найти

из файла в мемо загружается текст

надо в лейбл1 вывести последнюю не пустую строку
а во второй предпоследнюю

...

[GetMax]

Как то так

procedure TForm1.Button1Click(Sender: TObject);
Var
  i,number:Integer;
begin
  If Memo1.Lines.Count >= 2 then
  Begin
  With Memo1 do
  Begin
    For i:=Lines.Count-1 downto 0 do
    If (Lines[i] <> '') then
    Begin
      Label1.Caption:=Lines[i];
      number:=i;
      Break
    End;
    For i:=number-1 downto 0 do
    If (Lines[i] <> '') then
    Begin
      Label2.Caption:=Lines[i];
      Break
    End;
  End;
  End
  Else
  ShowMessage('Мало строк')
end;

[nyasha2013]

огромное спасибо