Wszystko mi działa , ale ...

Jak sprawić , aby ta "fantastyczna" procedurka nie rozróżniała dużych i małych liter.

procedure TForm1.SzukajClick(Sender: TObject);
var
i:integer;
begin
spis.Selected := spis.Items[-1];
for i := 0 to spis.Items.Count -1 do
begin
if Pos(sznaz.Text, spis.Items[i].Caption) > 0 then
begin
spis.SetFocus;
spis.Selected := spis.Items[i];
spis.Scroll(0, (spis.Items[i].Top) - 100);
Nazwa.Text:=spis.Selected.Caption;
Dane1.Text:=spis.Selected.SubItems[0];

Dane2.Text:=spis.Selected.SubItems[1];
Serial.Text:=spis.Selected.SubItems[2];
info.Text:=spis.Selected.SubItems[3];
end;
end;
end;

//jestes mistrzem formatowania kodu [glowa]

Pomagajcie spragnionym wiedzy Odpowiedź "... f1" - "fuj"

UpperCase, AnsiUpperCase + F1 :-)

[prosze] [pomocy]

słuchaj, podstawy masz w książkach, precz z takimi pytaniami z forum...

procedure TForm1.SzukajClick(Sender: TObject);
var
  i : integer;
begin
  spis.Selected := spis.Items[-1];
  for i := 0 to spis.Items.Count -1 do
  if Pos(AnsiUpperCase(sznaz.Text), AnsiUpperCase(spis.Items[i].Caption)) > 0 then
  begin
    spis.SetFocus;
    spis.Selected := spis.Items[i];
    spis.Scroll(0, (spis.Items[i].Top) - 100);
    Nazwa.Text:=spis.Selected.Caption;
    Dane1.Text:=spis.Selected.SubItems[0];

    Dane2.Text:=spis.Selected.SubItems[1];
    Serial.Text:=spis.Selected.SubItems[2];
    info.Text:=spis.Selected.SubItems[3];
end;
end;