Suchfunktion verbessern

[ghost1601]

hi,
ich habe mir eine suchfunktion zusammengebastelt mit der ich ein array durchsuchen kann. nun habe ich jeodch das problem, wenn man nicht einen exakten suchbegriff eingibt wird das gesamte array zerhaun und auch kein richtiges suchergebnis ausgegeben.
es wäre von daher ganz praktisch wenn man die suchfunktion so gestallten könnte, dass sie auch bei einer eingabe von nur einen buchstaben ein ergebnis zu tage fördert.
hier mal die jetzige funktion:

Delphi-Quellcode:

function TForm1.Suche(const sucheNach : string): LongInt;
var i:integer;
begin
for i:= 1 to max do
begin
    if datenfeld[i].kontaktname = SucheNach
        then
          begin
            result:=i;
            exit;
          end;
end;
end;

wenn jemand ne idee hat wie ich das bewältigen könnte wäre ich sehr dankbar