procedure TForm1.Button1Click(Sender: TObject);
var
i:integer; //zmienna do której "losuje się liczba"
begin
i := random(memo1.Lines.Count); //przypisanie do zmiennej liczby która jest losowana od 0 do ilosci linii w memo1
randomize; //wylosowanie liczb
edit1.Text := memo1.Lines[i]; //przypisanie edit1.text linii która została wylosowana (zmienna i)
end;