مشکل با ابزار Notepad

[++Hichkas]

با سلام به دوستان عزیز
من یه پروژه نوت پد دارم که تقریبا کامل اما چند تا ایراد داره اگر کسی می تونه کمکم کنه. مشکلاتش به ترتیب در زیر هست:
وقتی Find می کنم فقط اولین کلمه رو مشخص می کنه که نوشته شده

void __fastcall TForm2::Find1Click(TObject *Sender)
{
LongInt foundat;
int StartPos, ToEnd;
TSearchTypes mySearchTypes;
if (FindDialog1->Execute()) {

if (RichEdit1->SelLength!=0) {
StartPos= RichEdit1->SelStart + RichEdit1->SelLength ;
}
else{
StartPos =0;
}
ToEnd=Text.Length()- StartPos;
//foundat=RichEdit1->FindTextA(RichEdit1->Lines->Text,StartPos,ToEnd,mySearchTypes);
if (foundat!=-1) {
SetFocus();
RichEdit1->SelStart=foundat;
RichEdit1->SelLength=Text.Length();
}

}
}

وقتی replace می کنم هم اول فقط کلمه درخواستی رو چاپ می کرد بدون اینکه پیداش کنه ولی الان اون کارم انجام نمیده

void __fastcall TForm2::replace1Click(TObject *Sender)
{
ReplaceDialog1->Execute();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ReplaceDialog1Find(TObject *Sender)
{
if (FindDialog1->Execute()) {

if (RichEdit1->SelLength!=0) {
StartPos= RichEdit1->SelStart + RichEdit1->SelLength ;
}
else{
StartPos =0;
}
ToEnd=Text.Length()- StartPos;
//foundat=RichEdit1->FindTextA(RichEdit1->Lines->Text,StartPos,ToEnd,mySearchTypes);
if (foundat!=-1) {
SetFocus();
RichEdit1->SelStart=foundat;
RichEdit1->SelLength=Text.Length();
}

}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ReplaceDialog1Replace(TObject *Sender)
{
if (RichEdit1->SelLength!=0) {
StartPos=RichEdit1->SelStart+ RichEdit1->SelLength;
}
else {
StartPos=0;
}
ToEnd=Text.Length()- StartPos;
if (foundat!=-1) {
SetFocus();
RichEdit1->SelLength=RichEdit1->Text.Length();
RichEdit1->SelText=ReplaceDialog1->ReplaceTextA;
}
}

وقتی کلا Save میکنم می بندمش و با نوت پد ویندوز بازش می کنم یه سریکلمات بی مفهوم بالاش نوشته سده اگر کسی میتونه لطفا کمکم کنه
پیشا پیش ممنونم