Moin...
Delphi-Quellcode:
function TForm1.Coding(x: string): string;
var
i: integer;
y: string;
begin
y := x;
for i := 0 to listbox1.items.Count - 1 do
begin
if x = listbox1.items[i] then
begin
y := listbox2.items[i];
end;
end;
Result := y;
end;
...bitte verwende sprechende Namen. Aus eigener Erfahrung: Je kompexer die Anwendung...dann weißt du in 3 Monaten nicht mehr was was ist.