[Black Raider]

Где то примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var Par: TStringList;
s:string;
i,k:integer;
begin
Par := TStringList.Create;
 Par.Clear;
 s:='1|10|12|16|22|55';
 i:=0;
 ExtractStrings(['|'], [' '], PChar(S), Par);
 i:=((strtoint(edit1.text)) div 5);
 k:=((strtoint(edit1.text)) mod 5);
 if (k>0) then inc(i);
ListBox1.Items.Add(Par.Strings[i]);
Par.Free;
end;