procedure TForm1.Button2Click(Sender: TObject);
var
  aChar: Char;
begin
  for aChar := 'a' to 'z' do

  Memo1.Lines.Add(aChar);
   // Show (aChar);
end;