Программа управления. Клиент сервер

[SkiHunter]

Здравствуйте, Я новичок в Delphi 7 поэтому прошу помощи. Написал программу для компьютерного клуба, цель: клиент " отдаёт команды " и сервер "исполняет", итак у меня есть файл из него считываются имена компов и их ip в StringGrid далее выделяя какой либо IP от сразу заносится в переменную можно отправить команду на сервер, у меня проблема не могу сделать цикл что бы из файла считались только IP и занеслись в переменную (по очереди пока идёт цикл) и выполнилась команда. Вот исходник:

unit CliUnit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls, ComCtrls, ExtCtrls, Grids, Menus, XPMan;
type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    StringGrid1: TStringGrid;
    PopupMenu1: TPopupMenu;
    Explorer1: TMenuItem;
    XPManifest1: TXPManifest;
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure Add1Click(Sender: TObject);
    procedure ClientSocket1Write(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Explorer1Click(Sender: TObject);
    procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  constat:boolean = false;
  t1:string; /// ip адрес
  t2:string; /// команда на сервер 
implementation
{$R *.dfm}
procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText(t2);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
List:TStringList;
s,pole:string;
i:integer;
k:integer;
j:integer;

begin
StringGrid1.Visible:=true;
stringgrid1.Cells[0,0]:='Terminal';
stringgrid1.Cells[1,0]:='IP';
stringgrid1.Cells[2,0]:='Status';
/////Загружаем в лист содержимое БД
List:=TStringList.Create;
List.LoadFromFile('ff.txt');
StringGrid1.RowCount:=List.Count+1;
/////Загружаем в лист содержимое БД
for i:=1 to List.Count do begin
  k:=0;
  s:=List[i-1];
    for j:=1 to length(s) do begin
    if s[j]<>' ' then pole:=pole+s[j]
                 else begin stringGrid1.Cells[k,i]:=pole; pole:='';inc(k)   end;
    end;
end;
end;
///////////  занести значение выделенной ячейки t1////////
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
 t1:=StringGrid1.Cells[ACol, ARow]
 end;

procedure TForm1.ClientSocket1Write(Sender: TObject;
  Socket: TCustomWinSocket);
begin
ClientSocket1.Active:=false;
end;
procedure TForm1.Dell1Click(Sender: TObject);
begin
     t2:='start del.cmd';
     ClientSocket1.Address:=t1;
     ClientSocket1.Active:=true;
end;
procedure TForm1.Explorer1Click(Sender: TObject);
begin
     t2:='start iexplore.exe';
     ClientSocket1.Address:=t1;
     ClientSocket1.Active:=true
end;
procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
ShowMessage('Ошибка');
end;
end.

Нужна кнопка по нажатию вводится команда ну тот же запуск explorer только надо что бы команда была отправлена сразу на все сервера которые есть в ff.txt вот пример этого файла

Terminal1 169.254.3.20 
Terminal2 169.254.3.29 
Terminal3 192.168.0.3 
Terminal4 192.168.0.4 
Terminal5 192.168.0.5 
Terminal6 127.0.0.1 
Terminal7 10.10.10.244 
Terminal8 192.168.0.8

Это пример...
Помогите создать цикл с чтением из файла ip (разделитель пробелы) и в цикле подставлять их.

[Stilet]

Что-т я не понял вопроса...

[Vanta11a]

Я так понял, что нужна кнопка, которая разом отправит одинаковую команду на все имеющиеся сервера.

Дак в чем проблема то? Перебор всех строк с IP и для каждой отправка команды.
В псевдокоде:

пока не достигнут *максимальный индекс*
begin
t1 = *ip с текущим индексом*
t2 = команда
*отправить команду*
*увеличить индекс на 1*
end

[astecenko]

SkiHunter, по сути у Вас данные в текстовом файле хранятся в формате ключ=значение, только вместо разделителя "=" (знака равно), у вас пробел. Так что можете просто загрузить файл в объект типа TStringList (что Вы собственно и делаете в приведенном коде, для объекта List), далее задаете пробел разделителем :

List.Delimiter:=' ';

И работаете с данным как с набором "ключ=значение" с использованием соответствующих методов и свойств (их куча, как правило в наименованиях есть слова Name, Value). Саму отправку команды реализуйте в виде подпрограммы(функции, процедуры) в которую передается в качестве параметра IP адрес клиента.
Например отправка команд по всем IP с помощью некой функции OtpravkaKomandi тогда может выглядеть так:

n:=pred(List.Count);
for i:=0 to n do
  OtpravkaKomandi(Trim(List.ValueFromIndex[i]));

Еще рекомендую рассмотреть работу с ini файлами, если Вам вдруг понадобится хранить больше информации о клиентах (а там глядишь и СУБД не за горами) ;-)

[SkiHunter]

Vanta11a проблема именно с перебором всех серверов, а точнее нужно открыть файл пропустить имя компа и взять только IP занести его в переменную потом взять второй адрес и занести в туже переменную...