[Yurk@]

Попробуй так:

Код:

uses StrUtils;

var
f,r :AnsiString;
begin
f:='one';
r:='zero';
// ищем в самом начале строки
if AnsiStartsStr(f,Edit1.Text) then
Edit2.Text:=StringReplace(Edit1.Text,f,r,[]);

// ищем внутри строки без запятой
if AnsiContainsStr(Edit2.Text, ' '+f+' ') then
Edit2.Text:=StringReplace(Edit2.Text,' '+f+' ',' '+r+' ',[rfReplaceAll]);

// ищем внутри строки с запятой
if AnsiContainsStr(Edit2.Text, ' '+f+', ') then
Edit2.Text:=StringReplace(Edit2.Text,' '+f+', ',' '+r+', ',[rfReplaceAll]);

// ищем в конце строки
if AnsiContainsStr(Copy(Edit2.Text,Length(Edit2.Text)-Length(f),Length(f)+1), ' '+f) then
Edit2.Text:=StuffString(Edit2.Text,Length(Edit2.Text)-Length(f)+1,Length(f),r);