Нид изменить

[miche]

вот кнопка которая удаляет последнию строку из поле memo1 нид изменить чтоб она удаляла первую строку.

procedure TForm1.Button3Click(Sender: TObject);
var
    SL: TStringList;
  begin
    SL:= TStringList.Create;
    SL.AddStrings(Memo1.Lines);
    if not (SL.Count = 0) then
      SL.Delete(SL.Count-1);
    Memo1.Lines:= SL;
    SL.Free;
     end;

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

выкиньте код этот.
напишите это и все:

if Memo1.Lines.Count>0 then Memo1.Lines.Delete(0);

(в вашем коде зачем то копируются данные из мемо, изменяются, потом обратно)

[miche]

Спс большое