Проблема с переводом проги на С++ из Delphi

[Damassk]

Вот есть программа. На делфи она работает нормально и без проблем, а вот из-за незнания С++ очень сложно перетащить ее туда. Впрочем я попытался кое-что сделать, но она не работает. Я надеюсь сможет кто помочь с этим.

Если нужна задача, то она вот: В текстовом файле имеются две строки. Составить строку из символов, которые входят в исходные строки, и поместить строку во второй файл. (Суть: файл задан изначально в 2 строки с буквами латинского алфавита, все повторяющиеся буквы должны удаляться из строк, а не повторяющиеся записываться в одну строку)

procedure TForm1.Button1Click(Sender: TObject);
begin
 if OpenDialog1.Execute then
  memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var s:string;
    i: integer;
    j: integer;
    c: char;
    f: textfile;
begin
 s:='';
 for i:=0 to memo1.Lines.Count - 1 do
  s:=s+memo1.Lines[i];
  i:=1;
while i<length(s) do
 begin
  c:=s[i];
  for j:=length(s) downto i+1 do
  if s[j]=c then delete(s,j,1);
  i:=i+1;
 end;
 memo2.Text:=s;
 assignFile(f,'2.txt');
 rewrite(f);
  write(f,s);
 closeFile(f);
 ShowMessage('Данные успешно записаны в файл 2.txt')
end;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TOpenDialog *od = new TOpenDialog(this);
od->Filter = "Текстовые файлы|*.txt";
if (od->Execute()) {
  Memo1->Lines->LoadFromFile(od->FileName);
}
delete od;
od = NULL;
};



//---------------------------------------------------------------------------


void __fastcall TForm1::Button2Click(TObject *Sender)
{ int j,i,k,len; char c ; AnsiString S;
 k=Memo1->Lines->Count;
 Memo2->Clear();
 for (i=0; i<k; i++) {
  S=Memo1->Lines->StringS[i];
	 while ( i<S.Length() ) {
  c=S[i];
  for (j:=S.Length(), i+1, j--) {
  if (s[j]=c) {  S.Delete(j, 1);
  i++;
	  }
  }
 end;
 Memo2.Lines->StringS[];
	}