[}{ОТТ@БЫЧ]

Код:

procedure TForm1.Button1Click(Sender: TObject); //Твоя процедура
begin
Memo1.Lines.Insert(0, Edit1.Text); //Вместо Edit1.Text ставь переменную, или что тебе надо
end;