Как на 1 кнопку поставить 2 функции

[*Rakim*]

Как на 1 кнопку поставить 2 функции???
Ну например чтобы при нажатии на будтон в мемо вылазил текст и появлялась картинка ???

[Тигрь]

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := 'БЛАБЛАБЛА';
Image1.Picture.LoadFromFile('C:\Windows\System32\o obe\background.bmp');
end;