Lo que tú estás haciendo es lo que en el ejemplo está como:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
OpenDialog2.Execute;
end;
El resto sólo tienes que copiarlo como está ahí.