Jak odczytac text z TEdit do innej komendy??

Otoz rzecz polega na tym:

Co zrobic aby text z TEdit zostal wypowiedziany po wcisnieciu przycisku TButton??

Np. Gdy mam kod zrodlowy:

procedure TForm1.Button1Click(Sender: TObject);
var
voice: OLEVariant;
begin
voice := CreateOLEObject('SAPI.SpVoice');
voice.Speak('komunikat', 0);

to co mam zrobic zeby w miejscu 'komunikat' zostal wypowiedziany text napisany w TEdit??

PLIZZZZZZ POMOCY!!! Programuje w Delphi i jest to dopiero moj poczatek, wiec niemam pomyslu jak to zrobic... jak cos to moje gg to 6686199 [???]

à propos to bardzo bym byl wdzieczny gdybyscie mogli mi podac kod zrodlowy ktory mam wpisac w TEdit i TButton ;)

procedure TForm1.Button1Click(Sender: TObject);
var 
  voice: OLEVariant;
komunikat:string;
begin
komunikat:=edit1.text;
voice := CreateOLEObject('SAPI.SpVoice');
  voice.Speak(komunikat, 0);

wielkie dzieki ;) programik juz dziala.... jak go chcesz to odezwij sie na 6686199 ;)