MessageDlg - Schleifen Problem

[No3ody]

Hey Leute. Ich habe folgendes Problem: Meine Aufage ist es ein beliebiges Zeichen in einer beliebigen Zeichenkette ausfindet zu machen, indem es durch knopfdruck groß geschrieben wird. Das bekomme ich soweit auch noch hin. Wenn dieses beliebige Zeichen jedoch nicht in der Zeichenkette vorhanden ist, soll eine Messagebox mit "nicht vorhanden" erscheinen. Dort trifft es bei mir auf Probleme.

So sieht es bei mir momentan aus:
procedure TForm1.Button1Click(Sender: TObject);
var
j,i:Integer;
z,x:string;
begin
j:=length(edit1.Text);
x:=edit1.Text;
for i := 1 to j do
begin
if edit2.Text[1]=edit1.Text[i] then
begin
z:=ansiuppercase(x[i]);
delete(x,i,1);
insert(z,x,i);
edit1.text:=x;
end;
end;
end;


Wenn ich "MessageDlg('nicht vorhanden.', mtInformation, [mbOK], 0);" reinschreibe muss ich zuvor eine schleife programmieren. Ich war vorhin soweit, dass er mir je nach Zeichenkettenlänge x, x mal "nicht vorhanden" geschrieben hat.